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200 Initial Setup Steps: 

1. Connect phone on a COM port 

2. Connect Audio cables 

3. Select default sound system mixer (if more 
than one. 

4. Set volumes to 50% for Record Mic and 
Playback Wav , disable Playback Mic and 
Record Wav to prevent feedback. 

5. Run Internet Telephony software to allow it 
to get control of the sound system 

6. Run sample control program (fig 5) 

7. Verify that program detects phone on com 
port and test ring it 

8. Choose Internet Telephony Service 

9. Enable Dialer 

10. Hit Talk button to play dialtone and 
trigger auto recovery if sound system is set up 
incorrectly (no default device). 



Wait for off hook (DSR « Low) 



Play Audio file for dial tone and listen for 
DTMF or on hook 



DTMF detected. . . assemble number until # 
(send) key then release audio input 
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appropriate command. 
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play ringing audio file to output 



On Connect event, disable ringing and release" 
audio output to application, If no Connect, 
timeout and return to dial tone. 
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Figure 6 Visual Basic Program Listing 



'Sample listing for setup of DTMF recognition and serial port operations related to use of the Cordless 
Internet Telephone to emulate a POTS call using one of several service providers. 



Misc. (Types, Emims, Constants...) 



1 Means to use a default or automatic value 
Global Const ttAutomatic = -1 

' Errors used by ttLib 
EnumttErrors 

tteNoErrar = 0 

tteUnknown 

tteNotSupported 

tteOutOfMemory 

tteWaveDeviceDidNotOpen 

tteWrongState 

tteBadParameter 
End Enum 

' Most ttLib functions return a success value 
Enum ttSuccessValue 

ttscFailure = 0 

ttscSuccess = -1 
End Enum 

* Used by ttlnitializeExInfo and ttlnitializeO 

Enum ttCallbackMethods 
ttcmPostMessage = 0 1 PostMessage to a given window 
ttcmSendMessage = 1 1 SendMessage to a given window 



ttcmDirectFunction = 2 ' Call a function DIRECTLY FROM THE RECOGNIZER THREAD 
End Enum 

1 Used by ttlnitializeExO 
Type ttlnitializeExInfo 

StructSize As Long * LeiiB(tilnitializeExMo) 

CallbackMethod As ttCallbackMethods * Desired form of callback 
Callbacklnfol As Long 1 1f CB method is DirectFunction, this is a 

' Function pointer of a CallbackType function. 

■ If CB method is Send/PostMessage, this is 

•the target hWnd 

CalIbadcInfo2 As Long 1 1f CB method is Send/PostMessage, this is the 

1 window message to send or ttAutomatic. 

MinNoise As Long ' Noise gate level or ttAutomatic 

ToneDuration As Long ' Number of 12.75ms sampling windows needed 

'for tone or ttAutomatic 
SilenceDuration As Long ' Number of 12.75ms sampling windows needed 

' for silence or ttAutomatic 
SignalToNoise As Long ' Signal to noise ratio or ttAutomatic 

RowRatio As Long 1 Primary to harmonic ratio for rows or 



# 



' ttAutomatic 

ColRatio As Long * Primary to harmonic ratio for columns or 

1 ttAutomatic 

DeviceOverride As Long ' Audio input device to use or ttAutomatic 

End Type 



' Interface functions 



' You call InitializeO or InitializeExO when you first load the DLL or 
' when you want to change some of the parameters. They are NOT meant to 
' be called while recognition is in progress. The results of calling them 
f while recognition is in progress are undefined 

• The ttlnitializeExInfo struct passed to InitializeExO will be returned 

* with all ttAUTOMATIC values replaced by their defaults. The struct can 
' freed immediately. 

Declare Function ttlnitialize Lib "ttLib" (ByVal Method As ttCallbackMethods, ByVal Callbacklnfol As 
Long) As ttSuccess Value 

Declare Function ttlnitializeEx Lib "ttLib? (ttLiblnitializeExInfo As ttlnitializeExInfo) As ttSuccessValue 
' Starts up recognition 

Declare Function ttBeginRecognition Lib "ttLib" 0 As ttSuccessValue 

' Stops recognitioa Failing to call this is an easy way to crash your app. 
Declare Function ttEndRecognition Lib "ttLib" () As ttSuccessValue 

' Returns an error value. 

Declare Function ttGetErrorVal Lib "ttLib" 0 As ttErrors 



* This is the prototype to use for callbacks functions. With VB6, this is 
1 useless unless you really know what you're doing. With VB5, it should 
' be a breeze. 

1 Sub CalIbacldProc(By Val Char As Byte) 



'The following Communications constants are from win32api.txt: 



'EscapeCommFunction values 
Global Const SETXOFF= 1 
Global Const SETXON = 2 
Global Const SETRTS = 3 
Global Const CLRRTS = 4 
Global Const SETDTR = 5 
Global Const CLRDTR = 6 
Global Const RESETDEV = 7 
Global Const GETMAXLPT = 8 
Global Const GETMAXCOM = 9 
Global Const GETBASEIRQ = 10 



# # 



'Global variables & constants 

Public CommPortsO As String 
Public PortExists As Boolean 
Public ComlPortlnUse As Boolean 
Public Com2PortInUse As Boolean 
Public PortNumber As Integer 
Public PortOpen As Boolean 
Public NumberOfPorts As Integer 

Public ValidPort As Boolean 

Public dtmf As String 

Public gettingjone As Boolean 

'API declares: 

Declare Function PlaySound _ 
Lib "winnurLdlT _ 
Alias "PlaySoundA" _ 

(ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long 



Public Declare Function EscapeCommFunction 
Lib M kernel32"_ 
(ByVal nCid As Long, _ 
ByVal nFunc As Long) _ 
As Long 



Public Declare Function timeGetTime 

Lib Vinmm.dlT()_ 
As Long 



Public Sub Delay(DelayInMffliseconds As Single) 
•Delay timer with approximately 1-msec. resolution. 
Uses the API function timeGetTime. 
Rolls over 24 days after the last Windows startup. 
Dim Timeout As Single 

Timeout = DelaylnMilliseconds + timeGetTimeO 
Do Until timeGetTimeO >= Timeout 

DoEvents 
Loop 
End Sub 



Public Sub ShutDownO 
'Close the port. 

IfFonnlJiiSComml.PortOpea = True Thai 
FonnLMSCommlJPortOpen = False 



End If 
End Sub 



Private Const WM JJBUTTONUP = &H202 
Public dialing As Boolean 
Public dialtoneplaying As Boolean 
Public talking As Boolean 



Private Sub CallbackTarget_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
• When the recognizer gets a valid tone, it sends a window message with 
■ both the LP ARAM and the WPARAM as the ASCII value of the key. Since we 
' specified WM JLBUTTONUP as the message and CallbackTargethWnd as the window 
' in our call to ttlnitializeExO - this MouseUp event ends up firing when 
' a key is recognized! 

' For a normal WM_LBUTTONUP message, the X position of the mouse is in the 
1 low word of the LPARAM, Since VB uses that for the X parameter... the 
1 key's ASCII value is now in X! Note that CallbackTarget's ScaleMode is 
' vbPixels. If it was something else, VB would have multipled the real 
' low word of LPARAM by something to make X (i.e., if ScaleMode = vbTwips, 
' we'd want to do txtKeys.SelText = Chr$(X \ Screen.TwipsPerPixelx)). Dant 
1 sweat it. Just make sure your callback, target's ScaleMode is vbPixels! 

Status. SelStart = Len(StatusText) 
Status.SelText = Chr$(X) 
End Sub 



Private Sub EnableDialex_Click() 

If PickMSDvL Value = False And PickDialpadValue = False And PicHPhoneFree. Value = False Thai 

MsgBox "You must select a program first" 

Exit Sub 
End If 



PortNumber = Textl.Text 

IfFonnl.MSCommlJPortOpen = True Thai Forml JVlSComml JPortOpai = False 
FormLMSComml.CommPort = PortNumber 

If Forml. MSComml.PortOpen = False Then Form 1 .MSComm LPortOpen = True 



'start capturing tones 

If ttBeginRecognition = ttscFailure Then 

MsgBox "Failed to start DTMF recognition! Is your sound system in use by another program?" & 
vbNewLine & "Error M & CStr(ttGetErrorVal), vbExclamation 
Exit Sub 
End If 
Status-Text = "" 
dialing = True 

If PickDia^ad Value = True Then Timerl.Enabled = True 



If PickMSIM Value = True Then Timer2 JEnabled = True 
If PickPhoneFree. Value = True Thai Iimer3.Enabled = True 
EnableDialerEnabled = False 
Command2.Enabled = False 
Textl.Enabled = False 

Text2.Text - "Listening on com port H & PortNumber 
End Sub 



Private Sub Command2_Click() 
PortNumber = TextLText 
Callringit 

Call ringit ' sometimes the detection circuit needs a second ring 
End Sub 



Private Sub ringitO 

'rings the handset until answered 

If MSComml PortQpen = True Then MSCommlPortQpen = False 
'Change Comm port here 
MSComml. CommPort = PortNumber 

If MSComml .PortOpen = False Then MSComml Portppen = True 

Dim Commhandle As Long 

Commhandle = Form 1 .MS Comm 1 . CommlD 

Do 

Dim Timeout As Single 
Timeout = timeGetTimeO + 500 
Do 

RTSOn = SETRTS 

Success = EscapeCommFunction(Commhandle, RTSOn) 

Delay (25) 
RTSOn = CLRRTS 

Success = EscapeCommFunction(Commhaittfle, RTSOn) 

Delay (25) 
Loop While (timeGetTimeO <= Timeout) 
Delay (1000) 
Wait for off hook 

Loop While MSComml.DSRHolding = True 

If MSComml. PortOpen = True Then MSComml.PortOpen = False 

End Sub 



Private Sub Reset^ClickO 
'reset everything and stop timers , 
ttEndRecognition 

If FonnLMSComml .PortOpen = True Then Forml MSComml JPortOpen = False 
Call dialtone_ofF 
Timer 1. Enabled = False 
Timer2.Enabled = False 
Timer3 JEnabled = False 



EnableDialer JEnabled = True 
Command?, Enabled = True 

Delay (1000) 'give the plume a second to settle in case they just hung up 
Call Textl_Change 
End Sub 



Private Sub Command4_ClickO 
Dim htmlpath 

htmlpath = App.Path & "\index.html" 
frmBrowser. StartingAddress = htmlpath 
fhnBrowser.Show 
End Sub 



Private Sub FormJLoadO 
'set up state variables 

dialing = False 

dialtoneplaying = False 

talking = False 

Textl.Text- 1 

PortNumber = Textl.Text 

Call Text l_Change 



'set up dtmf detector 
Dim IEI As ttlnitializeExInfo 
With DEI 

StructSize = LenB(IEI) 

CallbackMethod = ttemPostMessage 

' Callbacklnfol is the target window for window-based callbacks 
CaUbacklnfol = CallbackTarget.hWnd 

1 CalIbackInfo2 is the WM to send for window-based callbacks 
Callbacklnfo2 = WM_LBUTTONUP 

' Use the defaults... 

ColRatio « ttAutomatic 
.DeviceOverride = ttAutomatic 
.MinNoise = ttAutomatic 
.RowRatio = ttAutomatic 

SignalToNoise = ttAutomatic 
.SilenceDuration = ttAutomatic 

ToneDuration = ttAutomatic 
End With 

IfttInitializeEx(IEI) = ttscFailure Then 

MsgBox "Failed to initialize ttLib!" St vbNewLine & "Error n & CStr(ttGetEtrorVal), vbExclamation 

Unload Me 

Exit Sub 
End If 

' ttlnitializeEx will have filled in all the ttAutomatic values, so 



# # 

1 we can see what they are now if you uncomment the box below. . . 

MsgBox "Tone duration is " & Fonnat$(IELToneDuiation * 12.75, "#.##") & vbNewLine & 
"Silence duration is " & Foimat$(EEI.SiIenceDuration * 12.75, "#.##"X _ 
vblnformation, "Info" 

End Sub 



Private Sub PidcDialpad_ClickO 
PickMSEM Value = False 
RckPhoneFree. Value - False 

End Sub 



Private Sub KckMSIMClickO 
PickDialpad Value = False 
PickPhoneFree. Value = False 

End Sub 



Private Sub PickPhoneFree^ClickO 
PickMSIM. Value = False 
PickDialpad. Value - False 

End Sub 



Private Sub Textl_Change() 

1 check for DSR on selected port to sense a device 

'note that IR ports also give a positive response, it might not be the phone 

On Error Resume Next 

If Textl.Text * Then Exit Sub 

If Textl.Text > 0 And Textl.Text < 3 Then PortNumber = Textl.Text 

If Forml.MSCommLPortOpen « True Then FonnLMSCommLPortOpen = False 

Form 1 . MSComm 1 . CommPort = PortNumber 

If Form 1 .MSComm 1 PortOpen = False Then Form 1 .MSComm 1 PortQpen = True 
If Form 1 .MSComml .DSRHolding - True Then 

Text2.Text = "Device found on port" 

Command! Visible « True f display a test ring button 
Else 

Text2.Text- "Device not ready or not found on com port" 
Command?.. Visible = False 
End If 

If Textl.Text > 2 Then Textl.Text = 1 
End Sub 



Private Sub Timerl JHrnerO 

If dialing = True And Fonnl .MSComml. DSRHolding - False Then 
'check to see if I should start dialtone 

If dialtoneplaying = False And StatusT ext = Thai Call dialtone_on 

'wait for right number of digits, and kill dialtone on the first one 
If Len(Status.Text) > 0 Then 
Call dialtoneoff 
If Len(Status.Text) > 9 Then 
' recognition is ended 



# 

ttEndRecognition 
Vun the application 
AppActivate ("Dialpadcom [") 

'send it the right key strokes to dial 

SendKeys "{TAB 13}" & & "{BKSP}" & StatusText & "~ n , 0 
dialing = False 
talking = True 
End If 

Endlf , ifflag = trae 

End If 

'reset everything on a hangup 

If talking = True And Fonnl .MSComml .DSRHolding = True Then 
talking = False 

AppActivate ("Dialpadcom [") 

SendKeys "%{F4} W , 1 'alt F4 closes window 

DoEvents 

Delay (300) 

AppActivate ("Dialpad") 
SendKeys n %vf, 1 
Delay 10000 
dialing = True 
Call EnableDialer_Click 
Endlf 

If dialing = True And MSComml.DSRHolding = True And Status.Text > n " Then 
Call dialtone_off 

Status.Text = "" 
Endlf 
End Sub 



Private Sub Timer2JTimer() 
This timer routine is for Microsoft Instant Messenger/Net2Phone 
' dont waste time if phone is on hook 

If dialing = True And Fonnl.MSComml.DSRHolding = False Then 

'check to see if I should start dialtone 
If dialtoneplaying = False And Status.Text ~ Then Call dialtone on 

'wait for right number of digits, and kill dialtone on the first one 
If Len(Status.Text) > 0 Then 
Call dialtone j>ff 
If Len(Status.Text) > 10 Then 

' recognition is ended 

ttEndRecognition 

'run the application 

AppActivate ("MSN Mess M ) 

SendKeys "%TCD H , 1 

AppActivate ("Phone Call") 

SendKeys Status.Text & "~" 

dialing = False 

talking = True 

Status.Text = "" 
Endlf 




Endlf 'if flag = true 
Endlf 



# • 

If talking = True And Fonnl.MSComml.DSRHolding = True Thai 

talking -False 

AppActivate ("Hume Call") 

SendKeys M %U n , 1 

Delay (500) 

EnableDialer_Click 
End If 

If dialing - True And MSComml J)SRHolding = True And StatusText > Then 
Call dialtonejsff 
StatusText = ,,H 
End If 
End Sub 



Private Sub Form_Unload(Cancel As Integer) 

'shut down and release audio hardware 

If Forml.MSComml.PortOpen = True Then Forml.MSComml.PortOpen - False 

Call dialtone_off 

' Make sure recognition is ended! 

ttEndRecognition 
End Sub 



Private Sub dialtoneonO 
'plays the dialtone wav 

On Error Resume Next 

dialtoneplaying = True 

Declare sound playing api variables 
SNDASYNC = &H1 

'Play the sound asynchronously — return immediately after beginning to play the sound and have it play 
in the background. 

SNDJFILENAME = &H20000 

IpszName is a string identifying the filename of the .wav file to play. 
SND JXX3P = &H8 

'Continue looping the sound until this function is called again ordering the looped playback to stop. 
SND ASYNC must also be specified. 
SND_PURGE = &H40 

1 Stop playback of any waveform sound. IpszName must be an empty string. Dim SYNC As Long 
Dim wav As String 
wav = "c:\windows\dialtone. wav" 
If wav = Then Exit Sub 
SYNC = SND ASYNC Or SNDJLOOP 
Dim R As Long 

R = PlaySound(wav, 0, SNDJFILENAME Or SND.ASYNC Or SND JLOOP) 

If R = 0 Then MsgBox ("Error! I couldnt get control of the speaker to {day dialtone, but the call may still 
work. You may have to stop other audio programs or check device settings in Control panel, Multimedia, 
Playback (Use preferred device only)") 

End Sub 

Private Sub dialtane^oflO 
On Error Resume Next 
dialtoneplaying = False 
•Declare sound playing api variables 
SND_ASYNC = &H1 

"Play the sound asynchronously - return immediately after beginning to {day the sound and have it play 
in the background. 

SNDJFILENAME = &H20000 



IpszName is a string identifying the filename of the .wav file to play. 
SND_LOOP = &H8 

* Continue looping the sound until this function is called again ordering the looped playback to stop. 
SND_ASYNC must also be specified 
SND_PURGE = &H40 

'Stop playback of any waveform sound. IpszName must be an empty string.Dim SYNC As Long 
SNDJNODEFAULT = &H2 

wav = "c:\windows\ofif. wav" 

R= PlaySound( m \ 0, SNDPURGE Or SND.NODEFAULT) 
End Sub 



Private Sub Timer3_Timer0 

■ this timer is for Phonefree 

' don't waste time if phone is on hook 

If dialing = True And Form 1 .MSComml .DSRHolding = False Then 
'check to see if I should start dialtone 

If diahoneplaying = False And StatusText = n " Then Call diahone_on 
'wait for right number of digits, and kill dialtone on the first one 

If Len(StatusText) > 0 Then 
Call dialtone_off 

If Len(StatusText) > 10 Then 

' recognition is sided 

ttEndRecognition 

'run the application 

AppActivate ("PhoneFree") 

SendKeys Status.Text & "~" 

dialing = False 

talking = True 

StatusText = nn 
End If 

End If 'if flag = true 
End If 

If talking = True And Fonnl.MSCommLDSRHolding = True Then 
talking = False 

' Uncomment this when Phonefree gets their hotkeys working again 
f In the meantime, just hope the other party hangs up within 15 seconds 

'AppActivate ("PhoneFree") 
'SendKeys n +H", 1 
Delay (3000) 
'SendKeys "%N", 1 
, EnableDialer_Click 
Call Reset JTlTck 
End If 

If dialing = True And MSCommlX>SRHolding = True And StatusText > Then 

Call dialtone _off 

StatusText = 
End If 
End Sub 



Figure 7 DTMF detection software parameter tuning 
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Figure 8 DTMF Detection Library function 

// : : — 

// Maine - Murphy McCauley 

Sun, Oct 1/2000 

// The interface and heart of ttLib 

// 



// 

//Misc 

II - 

// This is the main file 
#defineMAIN 



{bail 

in 



I.JL 

Q 



//■ 



// 

// Includes 
// 



#include "ttLib.1T 
#include "Maiah" 
#include "DFT.h" 
#include "UtiLh" 

include <math.h> // For floorO (I think thafs all...) 

#include <process.h> //For threading 
#include <mmsystem.h> // For audio 



//- 



// Callback settings (File scope variables) 
II . 



// This is a function pointer to the function to call when a key has been 
//recognized. This function implements a callback behavior. 
GotKeyType pGotKeyFunc; 



// If the callback method is one that calls a function, this is a pointer to 
//the function to call 
CallbackType pCallbackFunc; 

// If the callback method is one that notifies via a window, this is the 
// window that recieves the notification. 
HWND pGiUbackWindow; 

// If the callback method is one that notifies via a window, this is the 
// window message to send 

int pCallbackMessage; 



// 

// Misc variables (File scope variables) 
II 



// WAVEHDRs for the chunks 
WAVEHDR pWa\nes[NUM_CHUNKS]; 

// Pointer to the entire audio data buffer (for all chunks) 
short * pWaveData; 

// Pointers within pWaveData — one for each chunk 
short * pChunkI^ta[NUM_CHUNKS]; 

// Handle of the audio input device 
HWAVEIN phDev; 

// Hie waveform format 
WAVEFORMATEX pFormat; 

// When TRUE, the decoding loop will exit 
volatile BOOL pQuitNow = FALSE; 

// Handle of the recognizer thread 
HANDLE phThread; 

// Audio device to open 

UINT pAudioDevice = W AVE_MAPPER; 

// Translates a row and column into a key 

static char pKeys[4][4] = { {T, *2\ *3\ f O}, II O - Flash Override (FCVA) 

{ . 4 . . 5 , , 6 , T j a F _ (p/g) 

{7\ '8\ '9\ T}, // 1 - Immediate (I/C) 
{•*\ '0', '#*, V}} JI P - Priority (P/D) 

II 



//„ 

// Recognizer settings (File scope variables) 

II 

// This is a noise gate to stop excessively noisy signal from being 

// considered as a tone candidate. 

int pMinNoise = DEFAULT JtfIN_NOISE; 

// This is the number of sampling intervals that must pass until 
// a key is considered pressed (currently a 12.75ms sampling interval 
// is hard coded). I suggest 3 - 3 * 12.75 = 38.25 
int pToneDur = DEFAULT TONE^DURATION; 

// This is the number of sampling intervals that must pass between 
// keys (currently a 12.75ms sampling interval is hard coded). 
//Isuggest3 -3 * 12.75 = 38.25 
int pSilenceDur = DEFAULT SILENCE^DURATION; 



// This determines how much stronger the detected tones must be 
// compared with the rest of the signaL Likely range is 10 - 50. 
int pSigpaTCoNoise = DEFAULTSIGNALJTONOISE; 

// These are the ratio between the primary tone and its harmonic. 
// The hi^ier they are, the stronger the primary tone must be in 
// comparison, which will make the thing less likely to misfire. 
//Likely range is 0-25. In my testing, most sources are noisy 
// enough to throw this off rather easily for at least on frequency. 
// 1 suspect this is due to the tone generators, 
int pRowRatio = DEFAULT JlOWJfcATTO; 
int pColRatio = DEFAULT _COL JRATIO; 

// 



// 

// Misc. internal functions 

// 

int CalcNumSamples(double MS, int Rate) { 
double T; 

T = MS * (Rate / 1000.0); 
if (floor(T)<T){ 

return (intXfloor(T) + 1); 

} else { 

return (int)floor(T); 

} 

} 



unsigned _stdcall ThreadProc (LPVOID Dummy) { 
BOOL TempB; 

TempB = RecognizeO; 

if ( (TempB == FALSE) && (gLastError = tteNoError) ) { 
SetError(tteUriknown); 

} 

_endthreadex(TempB); 
return TempB; // Just for style 

II 



// 

// Callback handling functions 

// 

// These functions (xCBO) implement callback methods 
void SendMessageCB (char Key) { 

SendMessage(pCaUbackWindow, pCallbackMessage, Key, Key); 

} 

void PostMessageCB (char Key) { 

PostMessage(pCalIbac±Window, pCallbackMessage, Key, Key); 

} 



void DirectFunctionCB (char Key) { 
pCalIbadcFunc(Key); 

} 



// Used to set set up a callback method - a fairly silly (but 
// straightforward) implementation. 
BOOL SetCalIbaclc(ttCallbackMethods Method, int CB) { 
switch (Method) { 

case ttcmPostMessage: 

pCallbackWindow = (HWND)CB; 
pGotKeyFunc = PostMessageCB; 
if (IpCallbackWindow) { 

SetError(tteBadParameter); 
return FALSE; 

} 

break; 
case ttcmSendMessage: 

pCallbackWindow = (HWND)CB; 
pGotKeyFunc = SendMessageCB; 
if (IpCallbackWindow) { 

SetError(tteBadParameter); 

return FALSE; 

} 

break; 

case ttcinDirectFunction: 

pCallbackFunc = (CalIbackType)CB; 
pGotKeyFunc = DirectFunctionCB; 
if (IpCallbackFunc) { 

SetError(tteBadParameter); 

return FALSE; 

} 

break; 

default: 

SetError(tteNotSupported); 
return FALSE; 

} 

return TRUE; 

} 

// — 



// 

// Interface functions (prototyped in ttlnterface.h) 

II 

TouchToneErrors EXPORT ttGetEnorValO { 
TouchToneErrors ret; 
ret = gLastError; 
gLastError = 0; 
return ret; 

} 



BOOL EXPORT ttlnitializeEx (ttlnitializeExInfo * Info) { 
SetError(tteNoError); 



if (Info->StiuctSize != sizeof(ttInitializeExInfo)) { 
SetEnor(tteNotSuRX)ited); 
return FALSE; 

} 

if (!SetCaUback(Info->CaUbackMethod, Info->CaUbackInfol)) { 
return FALSE; 

} 

pCaIIbackMessage= autose^&Info->CalIbackInfo2, DEFAULT^CALLBACKJMESSAGE); 

pMinNoise = autosetp(&Info->MinNoise, DEFAULT JvflN_NOISE); 

pToneDur = autosetp(&Info->ToneDuration, DEFAULT_TONE_DURATION); 

pSilenceDur = autosetp(4^o~>StfenceDun^^ 

pSignalToNoise ~ aulosetp(&Info->SigaalToNoise ? DEFAULT_SIGNALJTO_NOISE); 
pRowRatio = autosetp(&Iiifo->RowRatio, DEFAULT JIOWJRATTO); 

pColRatio = autosetp(&Iiifo->ColRatio, DEFAULTCOLRATIO); 

pAudioDevice = (UINT)autosetp(&Info->Device(> DEFAULT_DEVICE); 

return TRUE; 



BOOL EXPORT ttlnitialize (ttCallbackMethods Method, int CB) { 
SetError(tteNoEnor); 

if (iSetCallbackCMethod, CB)) { 
return FALSE; 



} 

pCallbackMessage 

pMinNoise 

pToneDur 

pSilenceDur 

pSignalToNoise 3 

pRowRatio 

pColRatio 



= DEFAULT_CALLBACK_MESSAGE; 
= DEFAULT MIN NOISE; 

- DEF AULT_TONE_DURATION; 
= DEFAULTSILENGBDURATION; 

= DEFAULTJSIGNALJTO_NOISE; 

- DEFAULT JEtOWJRATIO; 

- DEFAULT_COL_RATIO; 



pAudioDevice = DEFAULT_DEVICE; 
return TRUE; 



BOOL EXPORT ttBeginRecognition 0 { 
int Thread©; 

if (phThread) { 

SetError(tteWrongState); 
return FALSE; 

} 

pFormatwFormatTag = WAVE_FORMAT_PCM; 
pFonnatnChannels = 1; 
pFormatnSamplesPerSec = 1 1025; // 1 1kHz 
pFormatwBitsPerSample = 16; 

pFormatnBlockAlign - (pForraatnChannels * pFormatwBitsPerSample) / 8; 
pFormatnAvgBytesPerSec = pFormatnBlockAlign * pFormatnSamplesPerSec; 



pFormatcbSize = 0; 
if(!phDev){ 

waveInOpen(&phDev, pAudioDevice, &pFormat, 0, 0, CALLBACK_NXJLL); 

} 

if(!phDev){ 

SetError(tteWaveDeviceE>idNotOpen); 
return FALSE; 

} 

wave!nStart(phDev); 

phThread = (HANDLE) J5eginthreadex( 
NULL, 
0, 

ThreadProc, 

NULL, 
0, 

&ThreadID); 

if (phThread) { 

return TRUE; 

} else { 

waveInReset(phDev); t 
waveInClose(phDev); 
phDev = 0; 
return FALSE; 

} 

} 



BOOL EXPORT ttEndReeognition 0 { 
if (IphThread) { 

// It's not running! 
SetErrorCtteWrongState); 
return FALSE; 

} 

// Tell the thread to quit 
pQuitNow - TRUE; - 

// Wait for the thread to finish, then clean it up 
WaitFoi«ingleC^ect(phThread, INFINITE); 
CloseHan<De(phThiead); 
phThread * NULL; 

//Reset this... 
pQuitNow = FALSE; 

// Close and clean up the wave device 
if(phDev){ 

waveInClose(phDev); 

phDev = NULL; 

} 

return TRUE; 



// 



